home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compendium Deluxe 2
/
LSD and 17bit Compendium Deluxe - Volume II.iso
/
a
/
prog
/
asmsrc
/
mischards.lha
/
SourceCode
/
Blox.s
next >
Wrap
Text File
|
1980-02-20
|
16KB
|
1,148 lines
Opt c-
Section "Psykos Blox Code",Code_c
Start Movem.l d0-d7/a0-a6,-(sp)
Bsr KillSys
Lea PicBase(pc),a0
Move.l 0,d0
Move.l #"FUCK",0
Cmpi.l #"FUCK",$80000
Beq NoMegChip
Move.l #$e0000,(a0)
Bra Reset0Long
NoMegChip Move.l #$70000,(a0)
Reset0Long Move.l d0,0
Move.l PicBase(pc),$Dff080
Move.w #$83c0,$Dff096
Bsr DoCopy
Bsr SetCopWaits
Bsr DoBPX
Loop Lea XPos0(pc),a5
Moveq #4,d7
Moveq #1,d0
AddIncLoop Add.w d0,(a5)+
Add.w d0,(a5)+
Addq #1,d0
Dbf d7,AddIncLoop
Lea XPos0(pc),a5
Moveq #4,d7
AddTrackLoop Bsr TrackMouse
Add.w d0,(a5)+
Add.w d1,(a5)+
Dbf d7,AddTrackLoop
Lea BMap0(pc),a0
Move.l PicBase(pc),a1
Lea $1b30(a1),a1
Move.w XPos0(pc),d0
Bsr SetBMaps
Lea BMap5(pc),a0
Move.l PicBase(pc),a1
Lea $1b80(a1),a1
Move.w XPos0(pc),d0
Bsr SetBMaps
Lea BMap1(pc),a0
Move.l PicBase(pc),a1
Lea $1c30(a1),a1
Move.w XPos1(pc),d0
Bsr SetBMaps
Lea BMap2(pc),a0
Move.l PicBase(pc),a1
Lea $1c80(a1),a1
Move.w XPos2(pc),d0
Bsr SetBMaps
Lea BMap3(pc),a0
Move.l PicBase(pc),a1
Lea $1d30(a1),a1
Move.w XPos3(pc),d0
Bsr SetBMaps
Lea BMap4(pc),a0
Move.l PicBase(pc),a1
Lea $1d80(a1),a1
Move.w XPos4(pc),d0
Bsr SetBMaps
Lea BP0List(pc),a0
Move.l PicBase(pc),a1
Lea $cc(a1),a1
Move.w YPos0(pc),d2
And.w #$1f,d2
Bsr DoYMap
Bsr Blitter1
Lea BP1List(pc),a0
Move.l PicBase(pc),a1
Lea $cc+4(a1),a1
Move.w YPos1(pc),d2
And.w #$1f,d2
Bsr DoYMap
Bsr Blitter1
Lea BP2List(pc),a0
Move.l PicBase(pc),a1
Lea $cc+8(a1),a1
Move.w YPos2(pc),d2
And.w #$3f,d2
Bsr DoYMap
Bsr Blitter1
Lea BP3List(pc),a0
Move.l PicBase(pc),a1
Lea $cc+12(a1),a1
Move.w YPos3(pc),d2
And.w #$3f,d2
Bsr DoYMap
Bsr Blitter2
Lea BP4List(pc),a0
Move.l PicBase(pc),a1
Lea $cc+16(a1),a1
Move.w YPos4(pc),d2
Bsr DoYMap
Bsr Blitter3
XLoop Bsr VBL
Btst #6,$Bfe001
Bne Loop
Xit Bsr ReturnSys
Movem.l (sp)+,d0-d7/a0-a6
Rts
DoBPX Move.l PicBase(pc),d0
Move.l d0,a0
Lea $ae(a0),a0
Swap d0
Move.w d0,00(a0)
Move.w d0,04(a0)
Move.w d0,08(a0)
Move.w d0,12(a0)
Move.w d0,16(a0)
Rts
DoYMap Moveq #0,d0
Move.w d2,d0
And.w #$ff,d0
Asl.l #3,d0
Add.l d0,a0
Rts
VBL Move.l $Dff004,d0
And.l #$1ff00,d0
Cmpi.l #$12800,d0
Bne VBL
Rts
Blitter1 Move.w #3,d7
Lea $Dff000,a6
DBXT Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(64*64)+2,BltSize(a6)
Add.l #24*64,a1
Dbf d7,DBXT
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(26*64)+2,BltSize(a6)
Rts
Blitter2 Move.w #1,d7
Lea $Dff000,a6
DBXT1 Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(128*64)+2,BltSize(a6)
Add.l #24*128,a1
Dbf d7,DBXT1
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(26*64)+2,BltSize(a6)
Rts
Blitter3 Lea $Dff000,a6
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(256*64)+2,BltSize(a6)
Add.l #24*256,a1
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #20,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
Move.w #(24*64)+2,BltSize(a6)
Rts
Copy Lea $Dff000,a6
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #0,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.l #$09f00000,BltCon0(a6)
And.l #$1ff,d0
Asl.w #6,d0
Bset #0,d0
Move.w d0,BltSize(a6)
Rts
BWait Btst #14,$Dff002
Bne BWait
Rts
DoCopy Move.w #51*2,d0
Lea CopperList1(pc),a0
Move.l PicBase(pc),a1
Bsr Copy
Move.l PicBase(pc),a1
Lea $cc(a1),a1
Move.w #281,d7
CopyBSLoop Move.w #12,d0
Lea CopBit(pc),a0
Bsr Copy
Add.l #24,a1
Dbf d7,CopyBSLoop
Move.w #10,d0
Lea EndCop(pc),a0
Bsr Copy
Rts
KillSys Bsr SysWait
Move.l $4,a6
Lea GFXLibName(pc),a1
Moveq #0,d0
Jsr -552(a6)
Lea OldCopper(pc),a5
Move.l $26(a0),(a5)
Lea $Dff000,a6
Move.w IntEnaR(a6),d0
Move.w DMAConR(a6),d1
Or.w #$8000,d0
And.w #$03ff,d1
Or.w #$8000,d1
Move.w #$7fff,IntEna(a6)
Move.w #$7fff,DMACon(a6)
Move.w d0,$4(a5)
Move.w d1,$6(a5)
Bset #1,$Bfe001
Rts
SysWait Move.w #15,d7
SWLoop1 Move.w #$1000,d0
SWLoop2 Move.w d0,$Dff182
Move.w d7,$Dff180
Dbf d0,SWLoop2
Dbf d7,SWLoop1
Rts
ReturnSys Lea $Dff000,a6
Move.w OldIntEna(pc),IntEna(a6)
Move.w OldDMACon(pc),DMACon(a6)
Move.l OldCopper(pc),Cop1lc(a6)
Bclr #1,$Bfe001
Moveq #0,d0
Rts
SetCopWaits Move.l PicBase(pc),a0
Lea $cc(a0),a0
Lea 20(a0),a0
Move.w #$1f,d0
Move.w #281,d1
CWaitLoop Add.w #1,d0
Move.b d0,(a0)
Cmpi.w #$100,d0
Bne ConCop
Move.w #$ffd9,(a0)
Move.w #0,d0
ConCop Lea 24(a0),a0
Dbf d1,CWaitLoop
Rts
SetBMaps And.w #$ff,d0
Moveq #0,d1
Move.w d0,d1
Asr.w #3,d1
Bclr #0,d1
Add.l d1,a0
Asl.w #8,d0
Asl.w #4,d0
Move.w #$f000,d2
Sub.w d0,d2
Move.w d2,d0
And.w #$f000,d0
Or.w #$09f0,d0
Lea $Dff000,a6
Bsr BWait
Move.l a0,BltApth(a6)
Move.l a1,BltDpth(a6)
Move.w #0,BltAMod(a6)
Move.w #0,BltDMod(a6)
Move.l #$ffffffff,BltAFWM(a6)
Move.w d0,BltCon0(a6)
Move.w #0,BltCon1(a6)
Move.w #(1*64)+32,BltSize(a6)
Rts
TrackMouse Lea $Dff000,a6
Move.w Joy0Dat(a6),d0
Lea OldX(pc),a3
Lea XPos(pc),a4
Move.b 0(a3),d1
Move.b d0,0(a3)
Sub.b d0,d1
Ext.w d1
Sub.w d1,0(a4)
Lsr.w #8,d0
Move.b 1(a3),d1
Move.b d0,1(a3)
Sub.b d0,d1
Ext.w d1
Sub.w d1,2(a4)
Move.w 0(a4),d0
Move.w 2(a4),d1
Asr.w #4,d0
Asr.w #4,d1
Rts
GFXLibName Dc.b "graphics.library",0,0,0,0
OldCopper Dc.l 0
OldIntEna Dc.w 0
OldDmaCon Dc.w 0
OldX Dc.b 0
OldY Dc.b 0
XPos Dc.w 0
YPos Dc.w 0
PicBase Dc.l 0
XPos0 Dc.w 0
YPos0 Dc.w 0
XPos1 Dc.w 0
YPos1 Dc.w 0
XPos2 Dc.w 0
YPos2 Dc.w 0
XPos3 Dc.w 0
YPos3 Dc.w 0
XPos4 Dc.w 0
YPos4 Dc.w 0
Cmv Macro
Dc.w \2,\1
EndM
Cwt Macro
Dc.w (\1*$100)+$01,$fffe
EndM
Pal Macro
Dc.w $ffd9,$fffe
EndM
EndCop Macro
Dc.w $ffff,$fffe
EndM
DatP Macro
Dc.w $e2+(\1*4),(\2-((\2/$10000)*$10000))
EndM
CopBit Cmv $0000,BplPt0l
Cmv $0000,BplPt1l
Cmv $0000,BplPt2l
Cmv $0000,BplPt3l
Cmv $0000,BplPt4l
Cwt $31
CopperList1 Cwt $14
Cmv $0200,BplCon0
Cmv $0000,BplCon1
Cmv $000a,BplCon2
Cmv $0030,DdfStrt
Cmv $00d2,DdfStop
Cmv $1611,DiwStrt
Cmv $36f1,DiwStop
Cmv $0002,BplMod1
Cmv $0002,BplMod2
Cwt $15
CopperCOLS Cmv $0000,Color00
Cmv $0111,Color01
Cmv $0222,Color02
Cmv $0333,Color03
Cmv $0444,Color04
Cmv $0555,Color05
Cmv $0666,Color06
Cmv $0777,Color07
Cmv $0888,Color08
Cmv $0999,Color09
Cmv $0aaa,Color10
Cmv $0bbb,Color11
Cmv $0ccc,Color12
Cmv $0ddd,Color13
Cmv $0eee,Color14
Cmv $0fff,Color15
Cmv $0fff,Color16
Cmv $0eef,Color17
Cmv $0ddf,Color18
Cmv $0ccf,Color19
Cmv $0bbf,Color20
Cmv $0aaf,Color21
Cmv $099f,Color22
Cmv $088f,Color23
Cmv $077f,Color24
Cmv $066f,Color25
Cmv $055f,Color26
Cmv $044f,Color27
Cmv $033f,Color28
Cmv $022f,Color29
Cmv $011f,Color30
Cmv $000f,Color31
DKX Cmv $000b,BplPt0h
Cmv $000b,BplPt1h
Cmv $000b,BplPt2h
Cmv $000b,BplPt3h
Cmv $000b,BplPt4h
Cwt $1f
Cmv $5200,BplCon0
Cmv $0111,Color00
EndCop Cmv $0200,BplCon0
Cmv $0000,Color00
EndCop
BP0List
Rept 8
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b34
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
Datp 0,$1b84
EndR
BP1List
Rept 4
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c34
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
Datp 1,$1c36
EndR
BP2List
Rept 3
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c84
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
Datp 2,$1c88
EndR
BP3List
Rept 2
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d34
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
Datp 3,$1d3c
EndR
BP4List
Rept 3
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d82
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
Datp 4,$1d92
EndR
BMap0
Rept 20
Dc.w $00ff,$00ff
Endr
BMap5
Rept 20
Dc.w $ff00,$ff00
Endr
BMap1
Rept 20
Dc.w $ffff,$0000
Endr
BMap2
Rept 10
Dc.w $ffff,$ffff,$0000,$0000
Endr
BMap3
Rept 10
Dc.l $ffffffff,$ffffffff
Dc.l $00000000,$00000000
Endr
BMap4
Rept 5
Dc.l $ffffffff,$ffffffff
Dc.l $ffffffff,$ffffffff
Dc.l $00000000,$00000000
Dc.l $00000000,$00000000
Endr
****Custom Chip Registers****
;Control Registers
Dmaconr = $002
Vposr = $004
Vhposr = $006
Joy0dat = $00A
Joy1dat = $00C
Clxdat = $00E
Intenar = $01C
Intereqr = $01E
Copcon = $02E
;Blitter Registers
Bltcon0 = $040
Bltcon1 = $042
Bltafwm = $044
Bltalwm = $046
Bltcpth = $048
Bltcptl = $04A
Bltbpth = $04C
Bltbptl = $04E
Bltapth = $050
Bltaptl = $052
Bltdpth = $054
Bltdptl = $056
Bltsize = $058
Bltcmod = $060
Bltbmod = $062
Bltamod = $064
Bltdmod = $066
Bltcdat = $070
Bltbdat = $072
Bltadat = $074
;Copper Registers
Cop1lc = $080
Cop1lch = $080
Cop1lcl = $082
Cop2lc = $084
Cop2lch = $084
Cop2lcl = $086
Copjmp1 = $088
Copjmp2 = $08A
Diwstrt = $08E
Diwstop = $090
Ddfstrt = $092
Ddfstop = $094
Dmacon = $096
Clxcon = $098
Intena = $09A
Intreq = $09C
;BitPlane Registers
BplCon0 = $100
BplCon1 = $102
BplCon2 = $104
BplMod1 = $108
BplMod2 = $10a
BplPt0h = $0e0
BplPt0l = $0e2
BplPt1h = $0e4
BplPt1l = $0e6
BplPt2h = $0e8
BplPt2l = $0ea
BplPt3h = $0ec
BplPt3l = $0ee
BplPt4h = $0f0
BplPt4l = $0f2
BplPt5h = $0f4
BplPt5l = $0f6
;Colorour Registers
Color00 = $180
Color01 = $182
Color02 = $184
Color03 = $186
Color04 = $188
Color05 = $18a
Color06 = $18c
Color07 = $18e
Color08 = $190
Color09 = $192
Color10 = $194
Color11 = $196
Color12 = $198
Color13 = $19a
Color14 = $19c
Color15 = $19e
Color16 = $1a0
Color17 = $1a2
Color18 = $1a4
Color19 = $1a6
Color20 = $1a8
Color21 = $1aa
Color22 = $1ac
Color23 = $1ae
Color24 = $1b0
Color25 = $1b2
Color26 = $1b4
Color27 = $1b6
Color28 = $1b8
Color29 = $1ba
Color30 = $1bc
Color31 = $1be